﻿Imports System.IO

Public Class frmThongTinDoAn

    Private Sub frmThongTinDoAn_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim TienDoCongViec As String = "../../TroGiup/TenDoCongViec.txt"
        If File.Exists(TienDoCongViec) Then
            Dim sr As New StreamReader(TienDoCongViec)
            Dim line As String
            line = sr.ReadToEnd()
            rtxtCongViec.Text = line
        Else
            rtxtCongViec.Text = "Không có dữ liệu"
        End If
    End Sub
End Class